home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
logs
/
logbook
/
waz.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
5KB
|
188 lines
*:*********************************************************************
*:
*: Program: WAZ.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 05/04/90 12:18
*:
*: Called by: LOGAWARD.PRG
*:
*: Calls: LOGCHNGE.PRG
*: : WAZENTER.PRG
*:
*: Uses: WAZ.DBF
*: : &WAZ.DBF
*:
*: Documented 05/04/90 at 13:49 SNAP! version 3.12f
*:*********************************************************************
* SAME AS OBLAST.PRG
STORE 41 TO wazm
DO WHILE task <> '*'
CLEAR
SET COLOR TO W+/R,W+/RB,BG+
@ 5,11 SAY 'G3ZCZ WAZ AWARD PACKAGE VERSION 1.9'
SET COLOR TO GR+/B,W+/RB,BG+
@ 7,1 SAY 'Default WAZ database is'
SET COLOR TO W+/R,W+/RB,BG+
@ 7,30 SAY TRIM(waz)
SET COLOR TO GR+/B,W+/RB,BG+
@ 8,1 SAY 'Default LOG database is'
SET COLOR TO W+/R,W+/RB,BG+
@ 8,30 SAY TRIM(logbook)
SET COLOR TO GR+/B,W+/RB,BG+
@ 10,1 SAY 'UPDATE WAZ RECORDS U'
@ 11,1 SAY 'CREATE A NEW WAZ DATABASE C'
@ 12,1 SAY 'CHANGE WAZ DATABASE D'
@ 13,1 SAY 'CHANGE LOGBOOK L'
@ 14,1 SAY 'PRINT WAZ RECORDS P'
@ 15,1 SAY 'DISPLAY FILES ON DISK DRIVE F'
@ 20,1 SAY 'QUIT THIS MENU *'
@ 22,1 SAY 'QRU'
@ 22,5 GET task
READ
DO CASE
CASE task = 'F'
CLEAR
ACCEPT 'WHICH DRIVE ? ' TO diskdrive
diskdrive = SUBSTR(diskdrive,1,1)
STORE diskdrive + ':' TO diskdrive
DISPLAY Files ON &diskdrive
RELEASE diskdrive
WAIT
CASE task = 'L'
DO logchnge
CASE task = 'C'
STORE 'WAZ' TO bwaz
IF FILE (bwaz+'.DBF')
USE waz
ACCEPT 'What is the name of the new WAZ file ? ' TO waz
IF FILE (waz+'.DBF')
? 'ERROR, WAZ FILE ',waz,' EXISTS ON DEFAULT DRIVE'
ELSE
COPY STRUCTURE TO &waz
USE &waz
STORE ' ' TO BLANK
STORE 1 TO iteration
DO WHILE iteration < wazm
APPEND BLANK
STORE iteration + 1 TO iteration
ENDDO
RELEASE BLANK,iteration
USE
ENDIF
ELSE
? 'ERROR BLANK WAZ FILE IS NOT ON DEFAULT DRIVE'
ENDIF
RELEASE bwaz
CASE task = 'D'
@ 22,1 SAY 'Which WAZ file ? '
@ 22,25 GET waz
READ
IF FILE (waz+'.DBF')
ELSE
? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
ENDIF
CASE task = 'U'
IF logbook = ' '
@ 23,1 SAY 'OPEN A LOGBOOK FIRST'
ELSE
IF FILE (waz+'.DBF')
DO wazenter
ELSE
? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
ENDIF
ENDIF
CASE task = 'P'
IF FILE (waz+'.DBF')
* WAZPRINT VER 851003 THIS PROGRAM PRINTS AN WAZ file
CLEAR
STORE ' ' TO choice
@ 5,1 SAY ' '
ACCEPT 'Whole thing, worked/QSL-d, or QSL-d (T,W,Q) ? ' TO choice
@ 10,1 SAY ' '
STORE ' ' TO df
ACCEPT 'DO you want hard copy (Y/N) ? ' TO df
IF df = 'Y'
SET PRINT ON
ENDIF
STORE 99 TO linecount
STORE 1 TO pagecount
STORE 0 TO qsled
STORE 0 TO worked
USE &waz
DO WHILE .not.EOF()
IF linecount > 60
IF df = 'Y'
EJECT
ENDIF
? 'WAZ as of ',DTOC(DATE()) ,'for',callsign,' PAGE',pagecount
IF choice = 'Q'
?? ' QSL STATUS'
ENDIF
STORE pagecount + 1 TO pagecount
?
? ' CALL DATE TIME BND MODE STATUS'
? '---------------------------------------------------'
STORE 5 TO linecount
ENDIF
IF choice <> 'T' .and. dstate = ' '
*
ELSE
IF dstate = ' ' .and. choice = 'Q'
*
ELSE
? RECNO(),dcall,ddate,dtime,dband,dmode
STORE linecount + 1 TO linecount
ENDIF
ENDIF
IF dstate = 'R'
IF choice = 'Q'
ELSE
?? 'Q'
ENDIF
STORE qsled + 1 TO qsled
STORE worked + 1 TO worked
ENDIF
IF dstate = '-'
STORE worked + 1 TO worked
ENDIF
SKIP
ENDDO
?
?
? worked,' WORKED ',qsled,'QSL-D'
?
IF df = 'Y'
EJECT
SET PRINT OFF
ENDIF
WAIT
RELEASE choice,df,linecount,pagecount,worked,qsled
USE
ELSE
? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
ENDIF
ENDCASE
ENDDO
STORE ' ' TO task
RELEASE wazm
RETURN
*: EOF: WAZ.PRG